home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1152 < prev    next >
Text File  |  1996-10-03  |  432b  |  27 lines
  1. supdict begin
  2. /circloop  
  3. { ystart spacing ystart abs
  4. { /ycur xdf 
  5. xstart spacing xstart abs
  6. { 
  7. ycur size 0 360 arc stroke
  8. } for
  9. } for } def
  10. end  
  11. /circles 
  12. {
  13. supdict begin  
  14. q newinside 
  15. /color xdf
  16. colorchoice 
  17. w
  18. /angle xdf 
  19. /spacing xdf 
  20. /size xdf 
  21. /xstart x1 x2 add 2 div neg spacing sub def 
  22. /ystart y1 y2 add 2 div neg spacing sub def 
  23. dx 2 div dy 2 div translate
  24. angle rotate circloop 
  25. Q end
  26. } def